dim cmd As String = COMMAND
dim fid As integer = FreeFile()
open cmd for output as #fid
close fid